home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 4
/
Apprentice-Release4.iso
/
Languages
/
PowerMacOberon 1.2
/
Dialogs
/
DialogIntegerSliders.Sym
< prev
next >
Wrap
Text File
|
1995-06-30
|
3KB
|
10 lines
˜ÿ¨fiõDialogIntegerSliders Item ∞¨¨ØDialogSliders Ñ√¢ØDialogs
name
$cmd
ƒ par ‰ selected  overlapping Panel Ë panel xObjectDesc Object ¸{o ܵàflDisplay Frame ˚{f ƒ…◊flViewers Viewer ˙{v §Îó≥Texts Text ˘{t CallCmd ¸{o ˚{dup Copy ¸{o ˚{x ˙{y ˘{f Draw ¸{o Edit ¸{o ˚{x ˙{y ˘{w ¯{h !GetDim ¸{o ˚{x ˙{y ˘{w ¯{h "GetPDim ¸{o ˚{f xFrameMsg ˙{msg #Handle ¸{o $Hide ¸{o %Init ¸{o ıñ≥Files res eof tRider ˚{r )Load ¸{o *OverlappingObject ¸{o ˚{x ˙{y +Print ¸{o ,Restore ¸{o -Select ¸{o ˚{cmd .SetCmd ¸{o ˚{x ˙{y ˘{w ¯{h ˜{cond /SetDim ¸{o ˚{name 0SetName ¸{o ˚{par 1SetPar ¸{o ˚{r 2Store ¸{o 3UnSelect ¸{o ˚{p 4Update sliderdY Ú delta Ù |&ItemDesc Item ¸{s ˚{down Arrow ¸{s ˚{dY CheckdY ¸{s ˚{dup Copy ¸{s ˚{x ˙{y ˘{f Draw ¸{s ˚{f ˙{pressed ˘{x ¯{y ˜{w ˆ{h ı{mode DrawSlider ¸{s ˚{f ˙{msg
Handle ¸{s Init ¸{s ˚{r Load ¸{s MaxValue ¸{s ˚{f ˙{pressed ˘{dY MoveSlider ¸{s ˚{x ˙{y Print ¸{s ˚{x ˙{y ˘{w ¯{h !PrintSlider ¸{s ˚{dY "SetdY ¸{s ˚{r Store ¸{s ˚{f ˙{x ˘{y ¯{w ˜{mx ˆ{my ı{keysum 8down #TrackButton ¸{s ˚{f ˙{mx ˘{my ¯{keys $TrackScrollBar Ù maxValue ¯ |!!&! ItemDesc ¸{s ˚{down !Arrow ¸{s ˚{dY !CheckdY ¸{s ˚{dup !Copy ¸{s ˚{f ˙{pressed ˘{x ¯{y ˜{w ˆ{h ı{mode !DrawSlider ¸{s !Init ¸{s !MaxValue ¸{s ˚{f ˙{pressed ˘{dY !MoveSlider ¸{s ˚{x ˙{y ˘{w ¯{h !! PrintSlider ¸{s ˚{f ˙{mx ˘{my ¯{keys !$
TrackScrollBar H Insert FW minusArrow plusArrow !
¿ " cmd ¿ ƒ |###PanelDesc ¸{p ˚{dir # AlignSelected ¸{p ˚{f ˙{m #Broadcast ¸{p ˚{o #Contains ¸{p #Copy ¸{p ˚{x ˙{y ˘{f #Draw ¸{p ¸{obj ˚{done $˚{handle # Enumerate ¸{p ˚{x ˙{y ˘{w ¯{h %˜{obArray ı{nofelems #
GetObjects ¸{p ˚{o ˙{ov # Insert ¸{p ˚{r #
Load ¸{p #MarkMenu ¸{p ˚{dx ˙{dy #MoveSelected ¸{p &˚{name #NamedObject ¸{p #NofSelObjects ¸{p ˚{x ˙{y #Print ¸{p ˚{dir #RegulateDistance ¸{p ˚{o #Remove ¸{p ˚{x ˙{y ˘{w ¯{h #RemoveObjects ¸{p #RemoveSelections ¸{p #Restore ¸{p ˚{x ˙{y ˘{w ¯{h #Select ¸{p '˚{cmd #SetCmd ¸{p ˚{r #Store ¸{p ˚{x ˙{y #ThisObject # dsc next X
Y W H ¸{f ˚{msg (Handler (handle t))FrameDesc )state )|**ViewerDesc * len ¸{T ˚{op ˙{beg ˘{end +Notifier +notify x,,TextDesc ,